home *** CD-ROM | disk | FTP | other *** search
/ Aminet 22 / Aminet 22 (1997)(GTI - Schatztruhe)[!][Dec 1997].iso / Aminet / biz / misc / GetPayed.lha / GetPayed / Install / Install GetPayed next >
Text File  |  1997-04-29  |  4KB  |  158 lines
  1. ; Installer script for GetPayed
  2. ;
  3.  
  4. (if (< (getversion) 2555865 )
  5.     (abort "You need at least Kickstart V39 (OS3.0) to use GetPayed")
  6. )
  7.  
  8. ; * Get place to install to *
  9. (complete 5)
  10. (set #destDir
  11.     (askdir
  12.         (prompt "Where should GetPayed be installed??\nA new drawer will be created.")
  13.         (help @askdir-help)
  14.         (default @default-dest)
  15.     )
  16. )
  17.  
  18. (set @default-dest #destDir)
  19.  
  20. (if (> (exists (tackon #destDir "GetPayed")) 0)
  21.   (
  22.     (if (= (askbool
  23.                (prompt "GetPayed seems to be installed already.\n\nContinue with install?\n\n(This script does not backup old installations!)")
  24.                (help @askbool-help)
  25.            ) 0)
  26.       (
  27.         (if (= @user-level 0))
  28.           (
  29.             ; * Inform novice users (displays path) *
  30.             (exit "Installation canceled.\n\nGetPayed seems to be already installed.")
  31.           )
  32.           (
  33.             ; * Inform Average and Expert users (should now install path) *
  34.             (exit "Installation canceled.\n\nGetPayed was already installed." (quiet))
  35.           )
  36.       )
  37.     ) ;if
  38.   )
  39. ) ;if
  40.  
  41.  
  42. ; * Make destination directories *
  43. (complete 10)
  44. (makedir (tackon #destDir "GetPayed") (infos))
  45. (complete 11)
  46. (makedir (tackon #destDir "GetPayed/docs") (infos))
  47. (complete 12)
  48. (makedir (tackon #destDir "GetPayed/rules"))
  49. (complete 13)
  50. (makedir (tackon #destDir "GetPayed/catalogs"))
  51. (complete 14)
  52. (makedir (tackon #destDir "GetPayed/projects"))
  53.  
  54. ; * Copy needed files in main directory *
  55. (complete 15)
  56. (copyfiles
  57.     (source "/")
  58.     (dest (tackon #destDir "GetPayed/"))
  59.     (choices "GetPayed")
  60.     (infos)
  61. )
  62.  
  63. ; * Copy documentation files *
  64. (complete 30)
  65. (copyfiles
  66.     (source "/docs/")
  67.     (dest (tackon #destDir "GetPayed/docs/") )
  68.     (all)
  69.     (infos)
  70.     (confirm)
  71.     (prompt "Select documentations to install:")
  72.     (help @copyfiles-help)
  73. )
  74.  
  75. ; * Copy locale catalogs *
  76. (complete 45)
  77. (copyfiles
  78.     (source "/catalogs")
  79.     (dest (tackon #destDir "GetPayed/catalogs/"))
  80.     (all)
  81.     (confirm)
  82.     (prompt "Which languages do you want to install?")
  83.     (help "Put a checkmark at all languages you want GetPayed to be able to use.\nWhen installed, if GetPayed cannot open in a language that matches your system settings, then it will show up in English.")
  84. )
  85.  
  86.  
  87. ; * Copy preset rule-files *
  88. (complete 65)
  89. (copyfiles
  90.     (source "/rules/")
  91.     (dest (tackon #destDir "GetPayed/rules/"))
  92.     (all)
  93.     (confirm)
  94.     (prompt "Select payment rules to install:")
  95.     (help "Put a checkmark at all rule files you wish to install.\n\nA rule file is a file describing a set of payment rules used by GetPayed for calculating the final payment.")
  96. )
  97.  
  98. ; * Install tutorial project(s) *
  99. (complete 80)
  100. (copyfiles
  101.     (source "/projects/")
  102.     (dest (tackon #destDir "GetPayed/projects/"))
  103.     (all)
  104.     (confirm)
  105.     (prompt "Install tutorial script(s):")
  106.     (help @copyfiles-help)
  107. )
  108.  
  109. ; * Copy uninstal script (and icon) *
  110. (complete 85)
  111. (if (set #scriptDir (if (= @user-level 2)
  112.                       (
  113.                         ; * Expert users can select place for uninstall script *
  114.                         (askdir
  115.                             (default (tackon #destDir "GetPayed/") )
  116.                             (prompt "Where should the uninstall script be placed?")
  117.                             (help @askdir-help)
  118.                         )
  119.                       )
  120.                       (
  121.                         ; * Other users get uninstall script in GetPayed drawer *
  122.                         (tackon #destDir "GetPayed/")
  123.                       )
  124.                     ))
  125.   (
  126.     (copyfiles
  127.         (source "UnInstall-GetPayed")
  128.         (dest #scriptDir)
  129.     )
  130.     (complete 90)
  131.     (copyfiles
  132.         (source "UnInstall-GetPayed._info")
  133.         (dest #scriptDir)
  134.         (newname "UnInstall-GetPayed.info")
  135.     )
  136.   )
  137. ) ;if
  138.  
  139. ; * Install developer info (not for novice users) *
  140.  
  141. (complete 95)
  142. (if (= (askbool
  143.            (prompt "Do you want to install developer files?")
  144.            (help "The developer files needs only be copied if you intend to do some developing for GetPayed.\n\nThe casual user will not need these files.")
  145.        ) 1)
  146.   (
  147.     (copyfiles
  148.         (source "/developer")
  149.         (dest (tackon #destDir "GetPayed/developer"))
  150.         (all)
  151.         (infos)
  152.     )
  153.   )
  154. )
  155.  
  156. (complete 100)
  157.  
  158.